home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / game / patch / WHDIGamesA-B.lzh / Bloodwych.lha / BloodwychHD / Install Datadisk < prev    next >
Text File  |  1998-06-15  |  2KB  |  101 lines
  1. ;****************************
  2. ; Bloodwych Extended Levels HD-Install by Morbidus
  3.  
  4. ;----------------------------
  5. ; Checks if given program is reachable via the path
  6. ; if not abort install
  7. ; IN:  #program - to check
  8. ; OUT: -
  9.  
  10. (procedure P_chkrun
  11.   (if
  12.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  13.     ("")
  14.     (abort ("You must install \"%s\" first !\nIt must be accessible via the path.\nYou can find it in the whdload package." #program))
  15.   )
  16. )
  17.  
  18. ;----------------------------
  19. ; Wait for inserting disk
  20. ; IN:  #AD_disk - name of disk
  21. ; OUT: -
  22.  
  23. (procedure P_disk
  24.   (askdisk
  25.     (dest "bloodwych +")
  26.     (prompt ("\nInsert \"%s\" in any drive !\n" #AD_disk))
  27.     (help #insertdisk-help)
  28.   )
  29. )
  30.  
  31. ;****************************
  32.  
  33. (set #program "WHDLoad")
  34. (P_chkrun)
  35.  
  36. (set @default-dest
  37.   (askdir
  38.     (prompt ("Please select where to install Bloodwych Extended.\nNo drawer will be created!\nSuggested place is in your Bloodwych drawer." @app-name @app-name))
  39.     (help @askdir-help)
  40.     (default @default-dest)
  41.     (disk)
  42.   )
  43. )
  44. (set #dest @default-dest)
  45.  
  46.   (copyfiles
  47.    (help @copyfiles-help)
  48.    (source ("EXT.slave"))
  49.    (dest #dest)
  50.   )
  51.   (copyfiles
  52.    (help @copyfiles-help)
  53.    (source ("BloodwychExt.inf"))
  54.    (newname ("BloodwychExt.info"))
  55.    (dest #dest)  
  56.   )
  57.   (copyfiles
  58.    (help @copyfiles-help)
  59.    (source ("Install Notes"))
  60.    (dest #dest)  
  61.   )
  62.   (copyfiles
  63.    (help @copyfiles-help)
  64.    (source ("Install Notes.info"))
  65.    (dest #dest)  
  66.   )
  67.   (copyfiles
  68.    (help @copyfiles-help)
  69.    (source ("ReadMe"))
  70.    (dest #dest)  
  71.   )
  72.   (copyfiles
  73.    (help @copyfiles-help)
  74.    (source ("ReadMe.info"))
  75.    (dest #dest)  
  76.   )
  77.  
  78.  
  79. (set #AD_disk "Bloodwych Extended Levels")
  80. (set #program "BLOODWYCH +:C/BEXT")
  81. (P_disk)
  82. (copyfiles
  83.   (help @copyfiles-help)
  84.   (source ("BLOODWYCH +:C/BEXT"))
  85.   (dest #dest)
  86. )
  87. (copyfiles
  88.   (help @copyfiles-help)
  89.   (source ("BLOODWYCH +:C/TEST"))
  90.   (dest #dest)
  91. )
  92.  
  93. (if
  94.   (= 0 (run "Reloc" (tackon #dest "TEST") (tackon #dest "TEST") "QUIET" ">con://///WAIT/CLOSE/AUTO"))
  95.   ("")
  96.   (abort "\"Reloc\" has failed")
  97. )
  98.  
  99.  
  100. (exit)
  101.